home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / dan_hwg.inc < prev    next >
Encoding:
Text File  |  1998-07-24  |  1.9 KB  |  125 lines
  1. *---------------------------------------
  2. *
  3. *    â_âjü[ò\Ī
  4. *
  5. *    éΓéτéΩüAŃé┐â|ü[âY
  6. *    âKü[âh
  7. *
  8. *    by Shiroh Nakaya
  9. *
  10. *---------------------------------------
  11. dan_hit:
  12.     move.w    C_X(a1),d1
  13.     move.w    C_Y(a1),d2
  14.     subq.w    #8,d1
  15.     subi.w    #16,d2
  16.     tst.w    C_LR_F(a1)
  17.     bne    @f
  18.  
  19.     addi.w    #$0006,d7
  20.     move.w    d1,(a6)+
  21.     move.w    d2,(a6)+
  22.     move.w    d7,(a6)+
  23.     move.w    #$0003,(a6)+
  24.  
  25.     addi.w    #16,d2
  26.     addq.w    #1,d7
  27.     move.w    d1,(a6)+
  28.     move.w    d2,(a6)+
  29.     move.w    d7,(a6)+
  30.     move.w    #$0003,(a6)+
  31.  
  32.     rts
  33. @@:
  34.     addi.w    #$4006,d7
  35.     move.w    d1,(a6)+
  36.     move.w    d2,(a6)+
  37.     move.w    d7,(a6)+
  38.     move.w    #$0003,(a6)+
  39.  
  40.     addi.w    #16,d2
  41.     addq.w    #1,d7
  42.     move.w    d1,(a6)+
  43.     move.w    d2,(a6)+
  44.     move.w    d7,(a6)+
  45.     move.w    #$0003,(a6)+
  46.  
  47.     rts
  48. *---------------------------------------
  49. dan_win:
  50.     move.w    C_X(a1),d1
  51.     move.w    C_Y(a1),d2
  52.     subq.w    #8,d1
  53.     subi.w    #16,d2
  54.     tst.w    C_LR_F(a1)
  55.     bne    @f
  56.  
  57.     addi.w    #$0008,d7
  58.     move.w    d1,(a6)+
  59.     move.w    d2,(a6)+
  60.     move.w    d7,(a6)+
  61.     move.w    #$0003,(a6)+
  62.  
  63.     addi.w    #16,d2
  64.     addq.w    #1,d7
  65.     move.w    d1,(a6)+
  66.     move.w    d2,(a6)+
  67.     move.w    d7,(a6)+
  68.     move.w    #$0003,(a6)+
  69.  
  70.     rts
  71. @@:
  72.     addi.w    #$4008,d7
  73.     move.w    d1,(a6)+
  74.     move.w    d2,(a6)+
  75.     move.w    d7,(a6)+
  76.     move.w    #$0003,(a6)+
  77.  
  78.     addi.w    #16,d2
  79.     addq.w    #1,d7
  80.     move.w    d1,(a6)+
  81.     move.w    d2,(a6)+
  82.     move.w    d7,(a6)+
  83.     move.w    #$0003,(a6)+
  84.  
  85.     rts
  86. *---------------------------------------
  87. dan_g:
  88.     move.w    C_X(a1),d1
  89.     move.w    C_Y(a1),d2
  90.     subq.w    #8,d1
  91.     subi.w    #16,d2
  92.     tst.w    C_LR_F(a1)
  93.     bne    @f
  94.  
  95.     addi.w    #$000a,d7
  96.     move.w    d1,(a6)+
  97.     move.w    d2,(a6)+
  98.     move.w    d7,(a6)+
  99.     move.w    #$0003,(a6)+
  100.  
  101.     addi.w    #16,d2
  102.     addq.w    #1,d7
  103.     move.w    d1,(a6)+
  104.     move.w    d2,(a6)+
  105.     move.w    d7,(a6)+
  106.     move.w    #$0003,(a6)+
  107.  
  108.     rts
  109. @@:
  110.     addi.w    #$400a,d7
  111.     move.w    d1,(a6)+
  112.     move.w    d2,(a6)+
  113.     move.w    d7,(a6)+
  114.     move.w    #$0003,(a6)+
  115.  
  116.     addi.w    #16,d2
  117.     addq.w    #1,d7
  118.     move.w    d1,(a6)+
  119.     move.w    d2,(a6)+
  120.     move.w    d7,(a6)+
  121.     move.w    #$0003,(a6)+
  122.  
  123.     rts
  124. *---------------------------------------
  125.